100 REM
110 REM PROGRAMM ZUR UMWANDLUNG VON
120 REM HIRES BILDERN (STARTADR.$2000)
130 REM IN KOALA-PAINTER BILDER.
140 REM
150 IF Q=0 THEN Q=1:LOAD "H/M WANDLER C000",8,1
160 IF A=0 THEN INPUT "NAME DES HIRES BILDES ";HN$
170 IF A=0 THEN A=1:LOAD HN$,8,1
180 :
190 SYS 49152
200 INPUT "VORDERGRUNDFARBCODE ";F1
210 INPUT "HINTERGRUNDFARBCODE ";F2
220 :
230 FOR T=8192+9000 TO 8192+9999:POKET,F2:NEXT
240 POKE 8192+10000,F1
250 :
260 POKE 46,71:POKE 45,239:CLR
270 INPUT "NAME DES KOALA-BILDES ";KN$
280 KN$="[129]PIC "+LEFT$(KN$+"          ",10)
290 POKE 44,32:POKE 43,0
300 SAVE KN$,8,1:SYS 64738